10 GOSUB10000: REM DATEI DEFFINIEREN
100 REM STEUERPROGRAMM ---------------------------------------------------------
110 X$="":INPUT"WELCHEN BEGRIFF SOLL ICH SUCHEN ";X$
120 IC=0:FOR SA=1 TO SZ
130 : IF X$=D$(SA) THENPRINT"DER GESUCHTE BEGRIFF STEHT IN SATZ ";SA:IC=IC+1
140 NEXT SA
142 IFIC=0THENPRINT"DIESER BEGRIFF IST IN DER FRUECHTEDATEI NICHT ENTHALTEN!"
144 IFIC>1THENPRINT"ACHTUNG, DER BEGRIFF ";X$;" KOMMT";IC;"MAL VOR!"
150 GOTO110